

kaktus :: Integer -> (Integer,Int)
kaktus n = (n*n,1)

kaktusList = map kaktus [ 1 , 2 , 3 , 4 ]

factorial2 :: Integer -> Integer
factorial2 0 = 1
factorial2 n = n * ( factorial2 ( n-1))

main = do
    putStrLn $ "Hello"
    putStrLn $ show kaktusList
    
    